home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKDR.SBP < prev    next >
Encoding:
Text File  |  1990-06-01  |  3.4 KB  |  199 lines
  1. SBP
  2.   ╜      STKDR
  3.   ╜      Enter Cash Receipts and Payments
  4.   ╜      Last updated Jan 03, 90
  5.  
  6.   │ _ wferror
  7.  
  8. stkdr: ╜ Set parameters
  9.  f$ "cash":fkey$ "Trans_Key":fmd$ "stkdr":ffld% 7:frow% 10
  10.   ímb% 4 pbtype$ "r" ^btype$ "p"
  11.  bdate$  ( Q,"mmm dd,yy"):bdate%  Q
  12.   ┤ Öf$
  13.   úfkey$
  14.   ┤ £fmd$
  15.  
  16. bwait: ╜ Enter batch header or exit
  17.   ╧ ▀
  18.   wbwait
  19.  
  20. bhead: ╜ Batch header
  21.   Ö"ctrl"
  22.  batch.CTRL batch.CTRL 1
  23.   ╠
  24.  bref% batch.CTRL
  25.   ╩ ╦ss20$
  26.  
  27. bhead2: ╜ Batch total
  28.   Öf$
  29.   ö7
  30.   íZero      0 p ┬ms27$,"",2,a%: wbhead2
  31.   ┬ms1$,"",130,a%
  32.   ía% 0 p wbhead2
  33.  bttl% Zero:Zero  0:ftl% 0:tref% 1
  34.  
  35. fenter: ╜ Enter Records from line 1
  36.   ü £
  37.   £2
  38.   ╩ ╦ss3$
  39.  mp% 1:ttl% 0
  40.  
  41. fenter2: ╜ Enter a record
  42.   ü
  43.  Trans_ref.CASH tref%
  44.   ═ £ "mp%
  45.   öTrans_date  "mp% qCash_ref  "mp%
  46.  
  47. fenter3: ╜ Enter cash amount
  48.   öAmount.CASH "mp%
  49.  b% 0
  50.   íAmount.CASH 0 p
  51.  ┬ms1$,"",127,a%
  52.  ía% p
  53. amt% Amount.CASH:ttl% ttl% amt%:ftl% ftl% amt%
  54. tref% tref% 1:mp% mp% 1
  55. Batch_ref.CASH bref%:Batch_date.CASH bdate%
  56. Printed_yn.CASH "n":Trans_Type.CASH btype$
  57.  ╠
  58.  vsupdate
  59.  £
  60.  Æ í
  61.   ^
  62.  ┬ms27$,"",100,a%:b% 1
  63.   Æ í
  64.   íb% p wfenter3
  65.   ┬ms2$,"",130,b%
  66.   íb% 0 p wfcheck
  67.   ímp% frow% p wfenter  ^ wfenter2
  68.  
  69. fcheck: ╜ Check batch total
  70.   íftl% bttl% p
  71.  ┬ms28$,ms29$,130,b%
  72.   ^
  73.  ┬ms26$,ss13$,100,a%:b% 1
  74.   Æ í
  75.   íb% 0 wfexit
  76.  
  77. floop: ╜ Re-display from first record
  78.   ü £
  79.   ╔ ╨Batch_ref.CASH bref%
  80.   vslimits
  81.  ckey% fstk%
  82.  
  83. fform: ╜ Display from ckey
  84.   vspage
  85.   £2
  86.  
  87. fwait: ╜ Wait here for a push button
  88.  mp% 0
  89.   ╩ ╦ss13$
  90.   ╧ ▀
  91.  
  93.  ╜ Edit line
  94.   í(mp% 0 mp% lrec%) p wfwait
  95.   ╩ ╦ss4$
  96.   ╔ £ "mp%
  97.  oamt% Amount.CASH
  98.  
  99. fedit2: 
  100.   öCash_ref.CASH "mp% qAmount.CASH "mp%
  101.  b% 0
  102.   íAmount.CASH 0 p
  103.  ┬ms1$,"",127,a%
  104.  ía% p
  105. amt% Amount.CASH oamt%:ttl% ttl% amt%:ftl% ftl% amt%
  106.  ╠: ╜ always positive
  107.  vsupdate
  108.  £
  109.  Æ í
  110.   ^
  111.  ┬"Amount must be positive","",100,a%:b% 1
  112.   Æ í
  113.   íb% p wfedit2
  114.   wfwait
  115.  
  116. fdelete: ╜ Delete record
  117.   ╩ ╦ss12$
  118.   ╧ ▀
  119.   ╔ £ "mp%
  120.   ┬ms14$  (Trans_Ref.CASH,"0000."),"",119,a%
  121.   ía% p
  122.  ╔ £ "mp%
  123. amt%  Amount.CASH:ttl% ttl% amt%:ftl% ftl% amt%
  124.  ╔ ╛
  125.  vsupdate
  126.   Æ í
  127.   ía% wfloop  ^ wfwait
  128.  
  129. fnext: ╜ Next page
  130.   ílstk% pstk%(lrec%) p wfwait
  131.   ╔ Ñpstk%(lrec%)
  132.   ╔ ▒
  133.   wfcurr
  134.  
  135. fprev: ╜ Prev page
  136.   ífstk% pstk%(1) p wfwait
  137.   ╔ Ñpstk%(1)
  138.   ¢i% 1 qfrow%
  139.  ╔ g
  140.   ▒i%
  141.  
  142. fcurr: 
  143.   û"ckey% = " fkey$
  144.   wfform
  145.  
  146. fexit: ╜ Exit
  147.   íftl% bttl% p ┬ms26$,ss13$,100,a%: wfwait
  148.   Ö"ctrl"
  149.   ä"menu"
  150.  
  151. slimits: 
  152.   ╔ b
  153.   û"lstk% = " fkey$
  154.   ╔ `
  155.   û"fstk% = " fkey$
  156.   ├
  157.  
  158. spage: ╜ Displays page of records starting with ckey$
  160.  ╜ Returns key array and number of number of records for page
  161.   ü £
  162.   ╔ Ñckey%
  163.  j% 0:ttl% 0
  164.   ¢i% 1 qfrow%
  165.  ═ £ "i%
  166. j% j% 1:ttl% ttl% Amount.CASH
  167.  û"pstk%(i%) = " fkey$
  168.  û"IF " fkey$ "= lstk% THEN i% = frow%"
  169.  íi% 
  170. frow% p ╔ ▒
  171.   ▒i%
  172.   íj% frow% plrec% frow% ^lrec% j%
  173.   ├
  174.  
  175. supdate: 
  176.   íbtype$ "p" pamt% amt%  1
  177.   Ö"Clients"
  178.   ╔ ÑClient.CASH
  179.  Cash_Receipts.CLIENTS Cash_Receipts.CLIENTS amt%
  180.   ╠
  181.   Öf$
  182.   ├
  183.  
  184. ferror: ╜ Error conditions
  185.  res% 0
  186.   í & 11 p
  187.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  188.   ^ í & 57 p
  189.  ┬ms8$,"",100,a%:res% 2
  190.   ^
  191.  ┬ (( &),ms9$,114,a%: ía% 1 pres% 3
  192.   Æ í
  193.   íres% 1 p y
  194.   íres% 2 p yfloop
  195.   íres% 3 p yfwait
  196.   É
  197.  
  198.  
  199.